From bd97ca6927aa4d688bba89dcce7cf4b174ea8740 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 28 Oct 2003 14:26:38 +0000 Subject: [PATCH] Fix some Unicode ranges. --- lisp/international/characters.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/international/characters.el b/lisp/international/characters.el index abb94ecff07..5cd6f358da8 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -1089,11 +1089,18 @@ (setq c #x2000) (while (<= c #x200b) (set-case-syntax (decode-char 'ucs c) " " tbl) - (setq c (decode-char 'ucs (1+ c)))) + (setq c (1+ c))) (setq c #x2010) + (while (<= c #x2016) + (set-case-syntax (decode-char 'ucs c) "_" tbl) + (setq c (1+ c))) + ;; Punctuation syntax for quotation marks (like `) + (while (<= c #x201f) + (set-case-syntax (decode-char 'ucs c) "." tbl) + (setq c (1+ c))) (while (<= c #x2027) (set-case-syntax (decode-char 'ucs c) "_" tbl) - (setq c (decode-char 'ucs (1+ c)))) + (setq c (1+ c))) ;; Roman numerals (setq c #x2160) -- 2.30.2